﻿Public Class clsProdInfo
    Friend Function selectProdInfo(prod_id As String) As DataTable
        Dim szSql As String = "SELECT  * FROM sf.b_prod_info WHERE factory_id=? and prod_id = ? "
        Return DBacs.ExecuteSql(szSql, -1, "TS", prod_id)
    End Function
End Class
